"
I'm in charge to style an ast when there are metalink in the ast
"
Class {
	#name : 'MetaLinkIconStyler',
	#superclass : 'IconStyler',
	#category : 'Reflectivity-Tools-Breakpoints',
	#package : 'Reflectivity-Tools',
	#tag : 'Breakpoints'
}

{ #category : 'testing' }
MetaLinkIconStyler class >> isStaticStyler [

	^ true
]

{ #category : 'defaults' }
MetaLinkIconStyler >> highlightColor [
	^(Color orange alpha: 0.1)
]

{ #category : 'defaults' }
MetaLinkIconStyler >> iconBlock: aNode [
	^ [ aNode links inspect ]
]

{ #category : 'defaults' }
MetaLinkIconStyler >> iconFor: aNode [
	^ self iconNamed: #smallDebug
]

{ #category : 'defaults' }
MetaLinkIconStyler >> iconLabel: aNode [
	^ 'Metalinks...'
]

{ #category : 'testing' }
MetaLinkIconStyler >> shouldStyleNode: aNode [

	^ aNode hasMetaLinks and: [
		  aNode links anySatisfy: [ :link | link hasOption: #optionStyler ] ]
]
